(defun c:incratt ( / )
  (vl-load-com)
  (IF uint NIL (LOAD "uint" "\nFile UINT.LSP not loaded! "))
  (SETQ incr-cnt (uint 1 "" "Starting number" (IF incr-cnt incr-cnt 1)))
  (IF incr-cnt NIL
    (SETQ incr-cnt 1)
  )
  (setq it(nentselp))
  (setq ename (car it))
  (setq anobj (vlax-ename->vla-object ename)) ; for inspecting a selection
  (IF (VLAX-PROPERTY-AVAILABLE-P anobj 'TextString T)
    (PROGN
      (VLAX-PUT-PROPERTY anobj 'TextString (ITOA incr-cnt))
      (SETQ incr-cnt (1+ incr-cnt))
    )
  )
)
